home *** CD-ROM | disk | FTP | other *** search
/ Bioblech 3 / Bioblech_3_1998-10_KRG_de.d64 / furzeditor_atze (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  823b  |  25 lines
  1. 1 poke53280,14:poke53281,6:fori=50000to50022:reada:pokei,a:next
  2. 5 a$="t":b=13:d=4:w=129
  3. 6 printchr$(147):print:print:print"[154]  [198]urzeditor"spc(7)"('93 crack by atze)"
  4. 10 printchr$(14)chr$(8):print:print"  [193]nzahl der '[194]lubbe'(1-23)?"b
  5. 11 print chr$(145)tab(27);:input b
  6. 13 print:print:print"  [198]urzdauer?"d:printchr$(145)tab(11);:input d
  7. 14 print:print:print"  [198]eucht oder [212]rocken? "a$chr$(157)chr$(157)chr$(157);
  8. 15 inputa$:w=129
  9. 16 ifa$="f"thenw=17
  10. 17 print:print:print"  ([218]) =>[218]ufallsfurz"
  11. 18 print:print:print"  (n) =>[198]urz neu kreieren"
  12. 19 print:print:print"  (*) =>[206]ochmal furzen"
  13. 20 fori=0to24:poke54272+i,0:next
  14. 30 sd=54272+14:pokesd+10,15:pokesd+6,240:pokesd+4,w
  15. 40 fori=0tob:poke2,(7-i)*5+85:sys50000:fork=1toi*d:next:next
  16. 60 getg$:ifg$=""then60
  17. 71 a$="t":ifw=17thena$="f"
  18. 72 printchr$(19):fori=1to5:print:next:printspc(27)"?"b chr$(157)"  "
  19. 73 print:print:print"  [198]urzdauer?"dchr$(157)"  "
  20. 74 print:print:print"  [198]eucht oder [212]rocken? "a$
  21. 75 ifg$="n"thengoto6
  22. 76 goto30
  23. 80 data120,162,0,160,15,136,208,253,232,142,15,212,228,2,208,243,169,0
  24. 90 data141,15,212,88,96
  25.